home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue28 / calcomp / CALCOMP.ZIP / DEMO.ZIP / CALUNIT.DFM / CALUNIT.txt
Encoding:
Text File  |  1997-08-31  |  3.6 KB  |  174 lines
  1. object AppForm: TAppForm
  2.   Left = 231
  3.   Top = 364
  4.   BorderStyle = bsDialog
  5.   Caption = 'MS Money 97 style popup calendar'
  6.   ClientHeight = 137
  7.   ClientWidth = 325
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans serif'
  11.   Font.Style = []
  12.   Position = poScreenCenter
  13.   OnCreate = FormCreate
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Label1: TLabel
  17.     Left = 12
  18.     Top = 32
  19.     Width = 38
  20.     Height = 13
  21.     Caption = 'Date 1 :'
  22.   end
  23.   object Label2: TLabel
  24.     Left = 12
  25.     Top = 76
  26.     Width = 38
  27.     Height = 13
  28.     Caption = 'Date 2 :'
  29.   end
  30.   object Label3: TLabel
  31.     Left = 32
  32.     Top = 120
  33.     Width = 263
  34.     Height = 13
  35.     Cursor = crHelp
  36.     Caption = 'TMS software : http://www.ven.be/freestyle/delphi.htm'
  37.     Font.Color = clBlue
  38.     Font.Height = -11
  39.     Font.Name = 'MS Sans serif'
  40.     Font.Style = [fsUnderline]
  41.     ParentFont = False
  42.     OnClick = Label3Click
  43.   end
  44.   object Label4: TLabel
  45.     Left = 164
  46.     Top = 76
  47.     Width = 77
  48.     Height = 13
  49.     Caption = 'Selected week :'
  50.   end
  51.   object Label5: TLabel
  52.     Left = 164
  53.     Top = 32
  54.     Width = 77
  55.     Height = 13
  56.     Caption = 'Selected week :'
  57.   end
  58.   object Label6: TLabel
  59.     Left = 248
  60.     Top = 32
  61.     Width = 20
  62.     Height = 13
  63.   end
  64.   object Label7: TLabel
  65.     Left = 248
  66.     Top = 76
  67.     Width = 20
  68.     Height = 13
  69.   end
  70.   object Edit1: TEdit
  71.     Left = 56
  72.     Top = 28
  73.     Width = 73
  74.     Height = 21
  75.     TabOrder = 0
  76.   end
  77.   object Button1: TButton
  78.     Left = 132
  79.     Top = 28
  80.     Width = 17
  81.     Height = 21
  82.     Caption = '...'
  83.     TabOrder = 1
  84.     OnClick = Button1Click
  85.   end
  86.   object Edit2: TEdit
  87.     Left = 56
  88.     Top = 72
  89.     Width = 73
  90.     Height = 21
  91.     TabOrder = 2
  92.   end
  93.   object Button2: TButton
  94.     Left = 132
  95.     Top = 72
  96.     Width = 17
  97.     Height = 21
  98.     Caption = '...'
  99.     TabOrder = 3
  100.     OnClick = Button2Click
  101.   end
  102.   object CalComp1: TCalComp
  103.     Day = 4
  104.     Month = 6
  105.     Year = 1997
  106.     Top = 44
  107.     Left = 180
  108.     Color = clYellow
  109.     TextColor = clBlack
  110.     SelectColor = clHighlight
  111.     InversColor = clRed
  112.     WeekendColor = clGreen
  113.     AlignControl = Edit1
  114.     ShowMethod = smBottom
  115.     NameofDays.Monday = 'Mo'
  116.     NameofDays.Tuesday = 'Tu'
  117.     NameofDays.Wednesday = 'We'
  118.     NameofDays.Thursday = 'Th'
  119.     NameofDays.Friday = 'Fr'
  120.     NameofDays.Saturday = 'Sa'
  121.     NameofDays.Sunday = 'Su'
  122.     NameofMonths.January = 'Jan'
  123.     NameofMonths.February = 'Feb'
  124.     NameofMonths.March = 'Mar'
  125.     NameofMonths.April = 'Apr'
  126.     NameofMonths.May = 'May'
  127.     NameofMonths.June = 'Jun'
  128.     NameofMonths.July = 'Jul'
  129.     NameofMonths.August = 'Aug'
  130.     NameofMonths.September = 'Sep'
  131.     NameofMonths.October = 'Oct'
  132.     NameofMonths.November = 'Nov'
  133.     NameofMonths.December = 'Dec'
  134.     ShowWeeks = False
  135.     Firstday = sdMonday
  136.   end
  137.   object CalComp2: TCalComp
  138.     Day = 4
  139.     Month = 6
  140.     Year = 1997
  141.     Top = 8
  142.     Left = 180
  143.     Color = clBtnFace
  144.     TextColor = clBlack
  145.     SelectColor = clHighlight
  146.     InversColor = clWhite
  147.     WeekendColor = clRed
  148.     AlignControl = Edit2
  149.     ShowMethod = smBottom
  150.     NameofDays.Monday = 'Mo'
  151.     NameofDays.Tuesday = 'Tu'
  152.     NameofDays.Wednesday = 'We'
  153.     NameofDays.Thursday = 'Th'
  154.     NameofDays.Friday = 'Fr'
  155.     NameofDays.Saturday = 'Sa'
  156.     NameofDays.Sunday = 'Su'
  157.     NameofMonths.January = 'Jan'
  158.     NameofMonths.February = 'Feb'
  159.     NameofMonths.March = 'Mar'
  160.     NameofMonths.April = 'Apr'
  161.     NameofMonths.May = 'May'
  162.     NameofMonths.June = 'Jun'
  163.     NameofMonths.July = 'Jul'
  164.     NameofMonths.August = 'Aug'
  165.     NameofMonths.September = 'Sep'
  166.     NameofMonths.October = 'Oct'
  167.     NameofMonths.November = 'Nov'
  168.     NameofMonths.December = 'Dec'
  169.     ShowWeeks = True
  170.     Firstday = sdSunday
  171.     Left = 36
  172.   end
  173. end
  174.